home *** CD-ROM | disk | FTP | other *** search
/ By Popular Request 2.0 / By Popular Request 2.0 (Arsenal Computer).ISO / amiga_2 / cnttlkt2.lha / Routines / TIM < prev    next >
Text File  |  1994-12-13  |  350b  |  6 lines
  1. TIM: procedure;parse arg ti,mo;ti=right(ti,6);select
  2.     when mo=12&verify(ti,'ap','M')~=6 then if left(ti,2)>12 then ti=' 'left(ti,2)-12||substr(ti,3,3)'p';else ti=ti'a'
  3.     when mo=24&verify(ti,'ap','M')=6 then ti=left(ti,2)+12||substr(ti,3,3)
  4.     otherwise if mo=0 then ti=(left(ti,2)+(verify(ti,'ap','M')=6)*12)*60+substr(ti,4,2)
  5.   end;return ti
  6.